1) ANIMED.SAI[CMS,LCS] and 2) ANI.SAI[CMS,LCS]	4-16-77 01:34	pages 1,1

**** File 1) ANIMED.SAI[CMS,LCS], Page 1 line 7
1)	C00014 00005	
1)	C00018 00006	MKUNIVGEODPYWO←DAD(UNIVERSE)N←FNUM←1
**** File 2) ANI.SAI[CMS,LCS], Page 1 line 7
2)	C00014 00005	SUBR GDEL(INTEGER T1,T2)
2)	C00018 00006	MKUNIVGEODPYWO←DAD(UNIVERSE)N←FNUM←1
***************


**** File 1) ANIMED.SAI[CMS,LCS], Page 5 line 2
1)			    DTMP←MKCOPY(TRAM(PDAD));
1)			    APTRAM(INTRAM(DTMP),TRAM(NDAD));
1)			    TMP←MKCOPY(TRAM(PFR));
1)			    APTRAM(TMP,DTMP);
**** File 2) ANI.SAI[CMS,LCS], Page 5 line 1
2)	SUBR GDEL(INTEGER T1,T2);
2)	START_CODE
2)		HRRZ 1,CFR; HRRZ 2,TMP;
2)		MOVE 3,-3(2); FDVR 3,RNOF; MOVEM 3,1(1);
2)		MOVE 3,-2(2); FDVR 3,RNOF; MOVEM 3,2(1);
2)		MOVE 3,-1(2); FDVR 3,RNOF; MOVEM 3,3(1);
2)		HRRZ 2,T1; HRRZ 3,T2;
2)		MOVE 4,-3(3); FSBR 4,-3(2); FDVR 4,RNOF; MOVEM 4,-3(1);
2)		MOVE 4,-2(3); FSBR 4,-2(2); FDVR 4,RNOF; MOVEM 4,-2(1);
2)		MOVE 4,-1(3); FSBR 4,-1(2); FDVR 4,RNOF; MOVEM 4,-1(1);
2)	END;
2)	SUBR MKDEL(INTEGER Q1,Q2);
2)	BEGIN
2)		CT←TRAM(Q1);NT←TRAM(Q2);TMP←MKCOPY(CT);
2)		APTRAM(INTRAM(TMP),NT);CVTRMV(TMP);
2)		GDEL(CT,NT);KLNODE(TMP);
2)	END;
2)	SUBR MOVEIT;
2)	BEGIN
2)		IF (CFR←NLINK(CB))≠CB∧MVNUM(CFR)≤FNUM THEN BEGIN
2)		  IF MVNUM(CFR)=FNUM THEN BEGIN
2)		    NFR←CW(CFR);
2)		    IF SNUM(NFR)>FNUM THEN BEGIN
2)		      RNOF←SNUM(NFR)-FNUM;
2)		      IF CAMR THEN MKDEL(CFR,NFR)
2)		      ELSE IF (POP←DAD(NFR)) THEN BEGIN
2)			CD←WO;
2)			DO CD←CW(CD) UNTIL
2)			 BLIST[POP+1]=MEM[CD-2]∧BLIST[POP+2]=MEM[CD-1];
2)			BATT(CB,CD);
2)			IF (CDAD←NLINK(CD))≠CD∧MVNUM(CDAD)=FNUM THEN BEGIN
2)			  NDAD←CW(CDAD);
2)			  IF SNUM(NDAD)>FNUM THEN BEGIN	INTEGER DTMP;
  1) ANIMED.SAI[CMS,LCS] and 2) ANI.SAI[CMS,LCS]	4-16-77 01:34	pages 5,5

2)			    DTMP←MKCOPY(TRAM(CDAD));
2)			    APTRAM(INTRAM(DTMP),TRAM(NDAD));
2)			    TMP←MKCOPY(TRAM(CFR));
2)			    APTRAM(TMP,DTMP);
***************


**** File 1) ANIMED.SAI[CMS,LCS], Page 5 line 15
1)			    KLNODE(TMP);KLNODE(DTMP);
1)	MKUNIV;GEODPY;WO←DAD(UNIVERSE);N←FNUM←1;
**** File 2) ANI.SAI[CMS,LCS], Page 5 line 45
2)			    KLNODE(TMP);KLNODE(DTMP);END;END
2)			ELSE MKDEL(CFR,NFR);END
2)		      ELSE IF DAD(CB) THEN BEGIN
2)			BDET(CB);MKDEL(CFR,NFR);END
2)		      ELSE MKDEL(CFR,NFR);END
2)		    ELSE BEGIN NLINK$(CB,CB);RETURN(0);END;END;
2)		  TRANSL(CB,XWC(CFR),YWC(CFR),ZWC(CFR));
2)		  ROTATE(XWD(-2,CB),IY(CFR),IZ(CFR),JX(CFR));
2)		  TMP←CW(CFR);
2)		  IF SNUM(TMP)=FNUM+1 THEN NLINK$(TMP,CB);END;
2)	END;
2)	SUBR MVCAM;
2)	BEGIN
2)		TMP←0;CAMR←CB←NCCW(WO);MOVEIT;CAMR←0;
2)		IF TMP THEN BEGIN
2)		  FO←JX(CB);
2)		  JX(CB)←FO+(FOCAL(TMP)-FO)/(SNUM(TMP)-FNUM);
2)		  IF JX(CB)>0 THEN BEGIN
2)		    FO←JX(CB)/FO;XWC(CB)←XWC(CB)*FO;
2)		    YWC(CB)←YWC(CB)*FO;ZWC(CB)←ZWC(CB)*FO;END
2)		  ELSE JX(CB)←FO;END;
2)	END;
2)	MKUNIV;GEODPY;WO←DAD(UNIVERSE);N←FNUM←1;
***************